home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / config / english / write.config < prev   
Text File  |  1996-11-13  |  965b  |  77 lines
  1. CONFIG WRITE;
  2.  
  3. IMPORT Mouse,
  4.        Bookmarks,
  5.        Cursor,
  6.        Edit_Key,
  7.        NumPad,
  8.        Project,
  9.        Edit_Menu,
  10.        Intern,
  11.        Extern,
  12.        Macros,
  13.        Utilities,
  14.        Search,
  15.        Replace,
  16.        Replace_All,
  17.        Jump,
  18.        Count,
  19.        Index,
  20.        Folds,
  21.        Preferences,
  22.        Help;
  23.  
  24. HOOK CLOSEWINDOW
  25.   Standard.M_Quit
  26. END CLOSEWINDOW;
  27.  
  28. BACKUP 0 "#?" "dh0:backup/WRITE.backup";
  29.  
  30. (* Buttons *)
  31.  
  32. BUTTON "new"
  33.   Standard.M_New
  34. END;
  35.  
  36. BUTTON "open"
  37.   Standard.M_Open
  38. END;
  39.  
  40. BUTTON "save"
  41.   Save(_fileName);
  42. END;
  43.  
  44. BUTTONSPACE;
  45.  
  46. BUTTON "insert"
  47.   Standard.InsertFile;
  48. END;
  49.  
  50. BUTTON "export"
  51.   Standard.SaveBlock;
  52. END;
  53.  
  54. BUTTONSPACE;
  55.  
  56. BUTTON "cut"
  57.   IF CopyArea([%MARKA,%MARKA],[%MARKB,%MARKB],"0") THEN
  58.     DeleteArea([%MARKA,%MARKA],[%MARKB,%MARKB])
  59.   END;
  60. END;
  61.  
  62. BUTTON "copy"
  63.   CopyArea([%MARKA,%MARKA],[%MARKB,%MARKB],"0");
  64. END;
  65.  
  66. BUTTON "paste"
  67.   InsertBuffer("0")
  68. END;
  69.  
  70. BUTTONSPACE;
  71.  
  72. BUTTON "help"
  73.   About;
  74. END;
  75.  
  76. END WRITE.
  77.